perm filename COMP1.OLD[AL,HE] blob
sn#349150 filedate 1978-04-14 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .TITLE Pseudo-code
C00004 ENDMK
Cā;
;.TITLE Pseudo-code
; File that requires all the compiled files. This is meant to be
;overlaid on top of the interpreter.
; .OFFSET -200000
; Only need to insert this during first pass
.IF1
.MACRO ASCIE STR
.ASCIZ STR
.EVEN
.ENDM
.MACRO MAKEOP CNAME, ANAME ;Compiler name, Address name
XX CNAME
.ENDM
.MACRO PLACE PHYS,VIRT
.OFFSET 0
.=PHYS
.OFFSET VIRT-PHYS
.ENDM
K3 == 1
.IFNZ K3
;.PRINT /You should be using the special PALX ;true if addresses get big
/
.ENDC
.INSRT ALHEAD.OLD[AL,HE]
STSW REAL,1 ;1 => use the COMP.AL files, otherwise COMT.
.INSRT INTOPS.PAL[AL,HE]
;The interpreter operation table
.ENDC
PUTLOC PCDVER, PCVERSION
.IFZ K3
. = PCODE ;Beginning of instruction space
.IFF
; . = PCODE
PLACE 160000,PCODE ;Will be .OFFSET -200000 later .OFFSET -600000
.ENDC
; This file is followed by the .ALP, .ALT, & .ALV files. Then COMP2.PAL[AL,HE]